home *** CD-ROM | disk | FTP | other *** search
/ Larry Magid's Essential Internet / Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO / qsockpro.qip / MPX.MPS < prev    next >
Text File  |  1995-10-09  |  2KB  |  76 lines
  1. # Microplex PPP and SLIP login script
  2. # Australia's Premier Internet Service Provider 
  3. #
  4. # 4/June/95 - SLE
  5. #
  6.      
  7. STRING username
  8. STRING password
  9. STRING framing
  10. STRING IPAddress
  11.      
  12. SetTimeOut  60
  13. CfgGetValue "Username" username
  14.      
  15. IF result = 0 THEN
  16.     GetInput "Enter your username:"  username 
  17.     IF result = 0 THEN
  18.         PRINT "Warning, no username entered."
  19.     ELSE
  20.         PRINT "Username set to: ";username 
  21.         CfgSetValue "Username" username
  22.     ENDIF
  23. ENDIF
  24.     
  25. CfgGetValue "Password" password
  26. IF result = 0 THEN
  27.     GetPassword "Enter your password:" password 
  28.     IF result = 0 THEN
  29.         PRINT "Warning, no password entered."
  30.     ENDIF
  31. ENDIF
  32.     
  33. CfgGetValue "Framing" framing
  34. IF result = 0 THEN
  35.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  36. ENDIF                            # don't wait for spaces
  37.      
  38. CommWaitFor "username:"            # case sensitive
  39.      
  40. CommSend        username
  41. CommSend        "%r"            # send ENTER 
  42.     
  43. CommWaitFor     "password:"
  44. CommSend        password
  45. CommSend        "%r"            # send ENTER 
  46.     
  47. CommWaitFor     "annex:"
  48.     
  49. # The Annex terminal server requires a macro to be exectued for connection 
  50. # ppp for PPP connection and slip for SLIP. It is case sensitive.
  51.      
  52. IF framing = "MPPPP" THEN
  53.     CommSend   "ppp"
  54. ENDIF
  55.      
  56. IF framing = "MPSLIP" THEN
  57.     CommSend   "slip"
  58. ENDIF
  59.      
  60.     CommSend        "%r"
  61.      
  62. IF framing = "MPSLIP" THEN
  63.     PRINT "%rGetting IP Address for SLIP" 
  64.     CommWaitFor "Your address is "
  65.     CommReadIPAddr IPAddress
  66.      
  67.     IF result < 7 THEN            # IP Address length test
  68.         ABORT "Invalid IP Address"
  69.     ENDIF
  70.      
  71.     CfgSetValue "IPAddress" ipaddress
  72.     PRINT "%rIP Address set to "; ipaddress
  73. ENDIF
  74.      
  75. END
  76.